<script>on openStackglobal gMyName,gYouNamecreate menu "îoãÂÉÅÅ[ÉJÅ["put "Ç÷ÇÈÇ’,-,ì«Ç›çûÇfi,ëSïîñYÇÍÇÈ" into menu "îoãÂÉÅÅ[ÉJÅ[" with menuMessage "Help,,readKiroku,clearKiroku"put "Ç≠ÇÈǑǵ" into gMyNamesend "mouseUp" to cd btn "îoãÂÉÅÅ[ÉJÅ["wait until the mouse is downglobal gHaikuNoKioku,gYouName,gMyNameput empty into gHaikuNoKiokuask "džǻÇΩÇÃÇ®ñºëOÅiâÆçÜÅjÇÕÅH"if it is emptythenput "ñºñ≥ǵÇÃÇ≤ÇÒÇ◊Ƕ" into gYouNameelseput it into gYouNameend ifend openStackon closeStackglobal gHaikuNoKioku,gYouNameanswer "èIÇÌÇÈëOÇ…ÅAç°âÒÇÃåmå√ÇÉZÅ[ÉuǵǃǮǴNjÇ∑Ç©ÅH" with "ãLâØÇ∑ÇÈ" or "ñYÇÍÇÈ"if it is "ãLâØÇ∑ÇÈ" thenask file "ÉtÉ@ÉCÉãñºÅH" with "êÌèÍÇÃãLò^"& the dateif it is empty then exit to HyperCardopen file itwrite gYouName & "Ç≥ÇÒÇÃÇ®åmå√ÅF" & the long date & return & return to file itwrite gHaikuNoKioku to file itclose file itend ifreset menubarend closeStackon readKirokuput empty into bufferanswer file "Ç≈ÇÕÅAÇ∆Ç¡Ç∆Ç´ÇÃÅuêÌèÍÇÃãLò^ÅvÇǫǧǺ" of Type textif it is empty then exit readKirokuput it into FNameopen file FNamerepeat until it is emptyset cursor to busyread from file FName until returnput it into astringif "Å^" is not in astring then next repeatrepeat for 2put "," into char offset("Å^", astring) of astringput "" into char offset("^", astring) of astringend repeatput astring after bufferend repeatclose file FNameput buffer after bkgnd fld "í∑ä˙ãLâØ"end readKirokuon clearKirokuanswer "ÇŸÇÒÇ∆DžǢǢÇÒÇ≈Ç∑Ç©ÅHÅiÇ∑Ç¡Ç©ÇËè¡Ç¶ÇøǷǧÇÒÇ≈Ç∑ÇÊÅj" with "ǢǢÇÊ" or "Ç‚ÇflÇ∆Ç≠"if it is "Ç‚ÇflÇ∆Ç≠" then exit clearKirokuput empty into bkgnd fld "í∑ä˙ãLâØ"beepend clearKirokuon helplock screenset the scroll of cd fld "Help" to 0show cd fld "Help"unlock screen with dissolve very fastend help</script>